program main
implicit none
REAL,dimension(2,2)::a,b

a=0
b=0
a(1,1)=1
a(1,2)=2
b(1,1)=3

write(*,*) a

write(*,*) a-2


end program main
